unit TestKapasiteAraliklari;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FormClassEmptyList, Menus, DB, ADODB, ImgList, XPMan, StdActns,
  ActnList, StdCtrls, Buttons, fcLabel, Grids, Wwdbigrd, Wwdbgrid,
  ExtCtrls, fcStatusBar, Mask, wwdbedit, Wwdotdot, Wwdbcomb;

type
  TfmTestKapasiteAraliklari = class(TfmFormClassEmptyList)
    cbParca: TwwDBComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmTestKapasiteAraliklari: TfmTestKapasiteAraliklari;

implementation
uses data;
{$R *.dfm}

procedure TfmTestKapasiteAraliklari.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Action := caFree;
  fmTestKapasiteAraliklari := nil;
end;

procedure TfmTestKapasiteAraliklari.FormShow(Sender: TObject);
begin
  inherited;
  OpenQueryOnDataSet(aqEntry.SQL.Text, aqEntry);
end;

end.

